VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmReadme 
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   4935
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   11145
   Icon            =   "frmReadme.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4935
   ScaleWidth      =   11145
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton btnClose 
      Caption         =   "Close (The Readme).."
      Height          =   375
      Left            =   0
      TabIndex        =   2
      Top             =   4560
      Width           =   2775
   End
   Begin VB.ListBox lstMenu 
      BackColor       =   &H00000000&
      ForeColor       =   &H00FFFFFF&
      Height          =   4545
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   2775
   End
   Begin RichTextLib.RichTextBox rtbRead 
      Height          =   4935
      Left            =   2760
      TabIndex        =   0
      Top             =   0
      Width           =   8415
      _ExtentX        =   14843
      _ExtentY        =   8705
      _Version        =   393217
      BackColor       =   0
      Enabled         =   -1  'True
      ReadOnly        =   -1  'True
      TextRTF         =   $"frmReadme.frx":1042
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "frmReadme"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

Unload Me

End Sub

Private Sub btnClose_Click()

Unload Me

End Sub

Private Sub Form_Load()

Me.Caption = "VectorNet Bot v2.2 | by Plugins -- Read Me"

lstMenu.AddItem "2.2 Changelogs"
lstMenu.AddItem "Command Editor"
lstMenu.AddItem "User Database"
lstMenu.AddItem "Bot Configuration"
lstMenu.AddItem "Bot Commands"
lstMenu.AddItem "Bot Trigger"

AddRead vbRed, "Welcome to the VectorNet Bot (ReadMe) To get started using the readme just click a menu item on the left hand side!"

End Sub

Private Sub lstMenu_Click()

On Error Resume Next

changelog = frmChat.InetReadme.OpenURL("http://vnb.privt.com/2.2/changelog.txt")
cmdeditor = frmChat.InetReadme.OpenURL("http://vnb.privt.com/2.2/cmdeditor.txt")
userdb = frmChat.InetReadme.OpenURL("http://vnb.privt.com/2.2/userdb.txt")
botconf = frmChat.InetReadme.OpenURL("http://vnb.privt.com/2.2/botconf.txt")
botcmds = frmChat.InetReadme.OpenURL("http://vnb.privt.com/2.2/botcmds.txt")
bottrig = frmChat.InetReadme.OpenURL("http://vnb.privt.com/2.2/bottrig.txt")

If lstMenu.text = "2.2 Changelogs" Then
    rtbRead.text = ""
    AddRead vbYellow, changelog
End If

If lstMenu.text = "Command Editor" Then
    rtbRead.text = ""
    AddRead vbYellow, cmdeditor
End If

If lstMenu.text = "User Database" Then
    rtbRead.text = ""
    AddRead vbYellow, userdb
End If

If lstMenu.text = "Bot Configuration" Then
    rtbRead.text = ""
    AddRead vbYellow, botconf
End If

If lstMenu.text = "Bot Commands" Then
    rtbRead.text = ""
    AddRead vbYellow, botcmds
End If

If lstMenu.text = "Bot Trigger" Then
    rtbRead.text = ""
    AddRead vbYellow, bottrig
End If

End Sub
